From: Jim Blandy <jimb@redhat.com>
Date: Mon, 15 Mar 1993 20:17:07 +0000 (+0000)
Subject: * floatfns.c (logb): Add extern declaration for this.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96855
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=c26406fef27bf84e38a2222f41cd464b33cdeee0;p=emacs.git

* floatfns.c (logb): Add extern declaration for this.

	* floatfns.c (Flogb): Under SYSV, implement this using frexp.
---

diff --git a/src/floatfns.c b/src/floatfns.c
index 1235dad2f86..8dd3fdc7bd4 100644
--- a/src/floatfns.c
+++ b/src/floatfns.c
@@ -55,6 +55,9 @@ Lisp_Object Qarith_error;
 
 #include <math.h>
 
+/* These declarations are omitted on some systems, like Ultrix.  */
+extern double logb ();
+
 #if defined(DOMAIN) && defined(SING) && defined(OVERFLOW)
     /* If those are defined, then this is probably a `matherr' machine. */
 # ifndef HAVE_MATHERR
@@ -620,17 +623,23 @@ This is the same as the exponent of a float.")
      (arg)
      Lisp_Object arg;
 {
-#ifdef USG
-  error ("SYSV apparently doesn't have a logb function; what to do?");
-#else
   Lisp_Object val;
   int value;
   double f = extract_float (arg);
 
+#ifdef USG
+  {
+    int exp;  
+
+    IN_FLOAT (frexp (f, &exp), "logb", arg);
+    XSET (val, Lisp_Int, exp-1);
+  }
+#else
   IN_FLOAT (value = logb (f), "logb", arg);
   XSET (val, Lisp_Int, value);
-  return val;
 #endif
+
+  return val;
 }
 
 /* the rounding functions  */